home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #7 / Commodore_Disk_User_Vol.3_7_1990_-.d64 / window wiper (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  82 lines
  1. 1000 x=x+1:ifx=1thenload"wiper mc",8,1
  2. 1010 rem **************
  3. 1020 rem *            *
  4. 1030 rem * win-screen *
  5. 1040 rem *   wiper    *
  6. 1050 rem *            *
  7. 1060 rem *    demo    *
  8. 1070 rem *            *
  9. 1080 rem *     by     *
  10. 1090 rem * mike  benn *
  11. 1100 rem *            *
  12. 1110 rem **************
  13. 1120 rem
  14. 1130 rem *************
  15. 1140 rem *           *
  16. 1150 rem * variables *
  17. 1160 rem *           *
  18. 1170 rem *************
  19. 1180 rem
  20. 1190 rem sa = screen address
  21. 1200 rem md = screen mode
  22. 1210 rem ch = wipe character
  23. 1220 rem cs = character set
  24. 1230 rem cc = character colour
  25. 1240 rem b0 = background colour 0
  26. 1250 rem b1 = background colour 1
  27. 1260 rem b2 = background colour 2
  28. 1270 rem br = border colour
  29. 1280 rem wp = wipe type
  30. 1290 rem dv = device (tape=1/disk=8)
  31. 1300 rem
  32. 1310 rem ** load parts **
  33. 1320 rem
  34. 1330 dv=8
  35. 1340 sys49155,"wiper chrs",dv,14336
  36. 1350 sys49155,"wiper win1",dv,16384
  37. 1360 sys49155,"wiper win2",dv,17384
  38. 1370 rem
  39. 1380 rem ** character wipes **
  40. 1390 rem
  41. 1400 sa=16384:md=1:ch=63:cs=31:cc=9:br=0:b0=0:b1=11:b2=12:wp=0
  42. 1410 gosub1780:gosub1800
  43. 1420 wp=1:gosub1780:gosub1800
  44. 1430 wp=0:gosub1780:gosub1800
  45. 1440 wp=3:gosub1780:gosub1800
  46. 1450 wp=4:gosub1780:gosub1800
  47. 1460 wp=5:gosub1780:gosub1800
  48. 1470 wp=6:ch=62:gosub1780:gosub1800
  49. 1480 wp=7:gosub1780:gosub1800
  50. 1490 wp=8:gosub1780:gosub1800
  51. 1500 wp=9:gosub1780:gosub1800
  52. 1510 wp=10:ch=63:gosub1780:gosub1800
  53. 1520 wp=11:gosub1780:gosub1800
  54. 1530 wp=12:ch=62:gosub1780:gosub1800
  55. 1540 wp=13:gosub1780:gosub1800
  56. 1550 rem
  57. 1560 rem ** screen wipes **
  58. 1570 rem
  59. 1580 sa=16384:md=1:ch=63:cs=31:cc=9:br=0:b0=0:b1=11:b2=12:wp=0
  60. 1590 gosub1780:gosub1800
  61. 1600 sa=17384
  62. 1610 gosub1780:gosub1800
  63. 1620 sa=16384:cc=13:b1=13:b2=3:wp=4
  64. 1630 gosub1780:gosub1800
  65. 1640 sa=17384:cc=13:wp=6
  66. 1650 gosub1780:gosub1800
  67. 1660 sa=16384:cc=15:b1=8:b2=9:wp=8
  68. 1670 gosub1780:gosub1800
  69. 1680 sa=17384:cc=9:b1=11:b2=12:wp=10
  70. 1690 gosub1780:gosub1800
  71. 1700 sa=16384:wp=12
  72. 1710 gosub1780:gosub1800
  73. 1720 sa=16384:wp=3:ch=63
  74. 1730 gosub1780
  75. 1740 sa=17384:wp=2:ch=63
  76. 1750 gosub1780:gosub1800
  77. 1760 wp=15:gosub1780
  78. 1770 end
  79. 1780 sys49152,sa,md,ch,cs,cc,b0,b1,b2,br,wp
  80. 1790 return
  81. 1800 forde=0to1500:nextde:return
  82.